home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / WRAPALRT.M < prev    next >
Encoding:
Text File  |  1989-09-11  |  376 b   |  20 lines
  1. MODULE WrapAlrt;
  2.  
  3. (*$E MOS *)
  4.  
  5. FROM Strings IMPORT PosLen, Insert, Length;
  6.  
  7. FROM Terminal IMPORT ReadString, WriteString, WriteLn, Read;
  8.  
  9. FROM EasyGEM0 IMPORT WrapAlert;
  10.  
  11. VAR s: ARRAY [0..99] OF CHAR;
  12.  
  13. BEGIN
  14.   REPEAT
  15.     WriteString ('? ');ReadString (s);
  16.     WrapAlert (s, 4);
  17.     WriteString ('> ');WriteString (s); WriteLn;
  18.   UNTIL s[0]=0C
  19. END WrapAlrt.
  20.